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Machine language monitor 


TIM is the Terminal Interface Monitor program for MOS Technology's 
65XX microprocessors. It has been expanded and adapted to function 
on the Commodore PET. Later production models have the TIM in 
ROM but your early model PET must use a cassette tape version of 
this monitor. In either case execution is transferred from the PET 
BASIC interpreter to TIM by the SYS command. (Gc 7 

« 2 


To LOAD your MONITOR, take the cassette with SQUIGGLE, MON- 
ITOR and BIGTIME, and put it on the tape unit with the MONITOR 
side up. Then type: LOAD “MONITOR” and when ready, RUN. 


Commands typed on the PET keyboard can direct TIM to start 
executing a program, display or later registers and memory locations, 
set breakpoints, and load or save binary data. On modifying memory, 
TIM performs automatic read after write verification to insure that 
addressed memory exists, is R/W type, and is responding correctly. 


TIM also provides several subroutines which may be called by user 
programs. These include reading and writing characters on the video 
display, typing a byte in hexadecimal and typing a CRLF sequence. 


TIM Commands 


M display memory 
R display register 


G begin execution 
X exit to BASIC 
L load 
S save 
EXAMPLES 
M DISPLAY MEMORY 
.M с000,С010 


C000 1D C7 48 C6 35 CC EF C7 
: C008 C5 CA DF CA 70 CF 23 СВ 
: С0109С C8 9C C7 74 C7 ТЕ C8 


In a Display Memory command, the start and ending addresses must 
be completely specified as 4 digit hex numbers. To modify a memory 
location, move the cursor up in the display, type the correction and 
press RETURN to enter the change. When you move the cursor to a 
line to do a screen edit, and press RETURN, the colon tells the 
monitor that you are re-entering data. 


R DISPLAY REGISTERS 


.RPC SR AC XR YR SP 
.: C6ED 00 20 00 20 F5 


Registers are saved and restored upon each entry or exit from ТІМ. 
They may be modified or preloaded as in the display memory exam- 


ple above. The semicolon tells the monitor you are modifying 
registers. 


G BEGIN EXECUTION 
.G C38B 
The GO command may have an optional address for the target. If 
none is specified, the PC from the R command is taken as the target. 
X EXIT TO BASIC 


.Х 
READY 


Causes a warm start of BASIC. In a warm start memory is not altered 
in any way and BASIC resumes operation the way it was before a 
monitor call was made. 


L LOAD 

.L 01,MONITOR 

PRESS PLAY ON TAPE £1 

OK 

FOUND MONITOR 

LOADING 
No defaults on a LOAD command. The device number and the file 
name must be completely specified. Operating system prompts for 
operator intervention are the same as for BASIC. Memory addresses 
are loaded as specified in the file header which is set up by the SAVE 
command. Machine language subroutines may be loaded from 


BASIC but care must be taken not to use BASIC variables as the 
variable pointer is set to the last byte loaded + 1. 


S SAVE 

. S 01,MONITOR,04000,076D 076 is ending address +1 50 
that last byte of data 15 at 

PRESS PLAY ON ТАРЕ #1 076C. You must specify 1 

ок greater than last address used. 


WRITING MONITOR 


Likewise, no defaults on the SAVE command. Any start and ending 
address may be specified. 


To cancel a command either type RETURN or press STOP to cancel а 
Display Memory, LOAD or SAVE. 


Interrupt and breakpoint action 


BRK is a software interrupt instruction which causes the CPU to inter- 
rupt execution, save PC and P registers on the stack and then branch 
through a vector at locations $021B and $021C. ТІМ initializes this 
vector to point at itself on entry by CALL. Unless the user modifies 
this vector, TIM will gain control when a BRK instruction is executed, 
print B* indicating entry via breakpoint (instead of C *—entry via call) 
and the registers (as in the R command), and wait for user commands. 
Note that after a BRK which vectors to TIM, the user's PC points to 
the byte following the BRK; however, users who choose to handle BRK 
instructions themselves should note that BRK acts as a two-byte 
instruction, leaving the PC (on return via RTI) two bytes past the BRK 
instruction. 


IRO is vectored normally in PET to an ISR which updates the clock 
and scans the keyboard every 60th of a second. If the vector is 
altered and the machine language subroutine does not restore it, a 
power-on reset must be performed. 


NMI is not provided for in PET. The processor line corresponding to 
this interrupt is permanently pulled UP. 


RESET vectors to a cold-start of BASIC. Memory is cleared. Reload 
and re-enter TIM via SYS command. 


TIM monitor calls and special locations 


JSR МВТ  $FFD2 typea character 
JSR RDT %ЕЕСЕ input а character 
JSR GET $FFE4 Geta character 
JSR CRLF $64F2 (уреа СЕ 

JSR SPACE $ @63А type a space 

JSR WROB $0613 typea byte 

JSR RDOB $@65E_ read a byte 

JSR HEXIT $ 0685 Ascii to hex in A 


Memory usage 


$0A—$22 zero page 
$400—$76A absolute RAM 


$23—$5A are zero page locations in the BASIC input buffer which 
may be used when BASIC is not using these locations. The second 
cassette buffer $33A-$3FF isa well protected location if that device 
is not used. Other memory locations may be used with considerable 
risk, depending on which piece of PET software wants to use it also. 


Monitor checkout procedure 


1) Power up your PET normally into BASIC command mode. Insert 
the cassette containing a monitor and use the SHIFT-RUN sequence to 
initiate a program load. You should see a display something like: 


C* PC SRACXRYRSP 
.; C6ED 29 00 88 89 FE 


Exact values may vary, although the first and last values should be 
as shown. 


2) The display of registers is the standard entry display message. It 
consists of C* to identify entry by call, followed by the CPU register 
contents: program counter, processor status, accumulator, X index, 
Y index, and stack pointer. Note that all TIM inputs and outputs are 
in base 16 which is referred to as hexadecimal, or just hex. In hexa- 
decimal the digits аге 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F. After printing 
the CPU registers, TIM is ready to receive commands from you. TIM 


indicates this “ready” status by typing the prompting character ©.” 
on a new line. 


3) The user's CPU register may also be displayed with the R com- 
mand. Type ап В and press RETURN. Тһе monitor should respond 
as above, but without the asterisk. 


4) Displayed values may be modified by screen edit and re-entry of 
the line via return. Remember to type spaces to delimit fields and 
type 4 digit hex numbers for addresses and 2 digits for byte contents. 


5) Memory may be displayed and modified using the M command. 
Type: 


‚М 01900,0197 
You will see a display something like: 


013456 7 
0100 20 00 30 30 30 30 30 


Now use screen edit to modify in place on the screen, type RETURN 
and display again. 


6) Use М and: to enter the following test program called CHSET 
because it prints the ASCII—64 character-set on the terminal. The 
M command is used to display memory locations on the PET screen 
and it is then possible to use screen edit on each line and type 
RETURN to alter memory. 


* = $33A 
CRLF - S4F2 
WRT - SFFD2 


33A 20 F2 04 ; CHSET JSR CRLF 


33D A2 20 LDX #$20 

33F 8A LOOP TXA 

340 20 D2 FF JSR WRT 

343 ЕВ INX 

344 EO 60 CPX $60 

346 00 F7 BNE LOOP 
348 00 BRK 

349 4C ЗА 03 JMP CHSET 


.M  033A,034B 


034A ЗА 03 
7) CHSET was assembled to reside in the 2nd cassette buffer. Type: 
. G 033A 
to execute the program. 
The listing should look like this: 


1" #$%'()*,-./0123456789:; =? GABCDEF 
HIJKLMNOPORSTUVWXYZ [/] 

B* PC SR AC XR YR SP 

.: 0349 ЗВ БЕ 60 8D FE 


Note the address contained in the PC. It is possible to type G 
execute the program again without specifying an address. 


8) Next we willlink CHSET with BASIC. First replace the BRK 
instruction in location $348 with an RTS (return subroutine) 
(change $348 from Ф to 60). 


9) Change the USR function vector in locations 1 & 2 to point at the 
subroutine at $33A. 


-: 0000 4C ЗА 03 


10) Exit from the monitor and re-enter BASIC. 


X 
READY 


11) Prove that the linkage is established by using both SYSand USR. 


A = USR (0) 
(Enter these as 


SYS (3 * 256 + 3 * 16 + 10) direct base commands) 
PET MEMORY MAP (IN 4K BLOCKS) 
F  I/O, Diagnostics, Monitor ROM 


$Е800- I/O Ports and Expansion I/O 
$Е000-Е7ЕЕ Screen Editor ROM 


Basic ROM 


Expansion ROM 


$8000-$83E7 ТУ display RAM 


Expansion RAM 


мю ооо су || 0| o> wlay 


Basic Text RAM (8k Version) 


© 


Раре 0 5А-55А Basic Input Buffer 
Page 1 Stack 


Pages 2-3 5200 3 byte clock register 
$219 Interrupt vector 
$21B Break inst. vector 
$27A Buffer for cassette #1 
$33A Buffer for cassette #2 


Pages 4-8 $400-$FFF Basic Text RAM 
ЭБС ыры ee eS ЭЛӘ ОТ ЫКЫ ME ere te 345 


Notes 


COMMODORE PRESENTS 


"Squiggle"and "Big Time" 


umo 


For use 
with the 


С РИА ated PET" 


TWO PROGRAMS FOR YOUR NEW РЕТ" 


"SQUIGGLE"' "BIGTIME" 


. . . ANALYSIS AND COMMENTARY 


NOTE: *'Squiggle" and “Big Time" appear sequentially 
on the same side of the cassette tape. 


To load Squiggle, put the cassette with Squiggle 
and Big Time in your PET and type: 
LOAD "SQUIGGLE" 


To load Big Time, put the cassette with Squiggle 
and Big Time in your PET and type: 
LOAD "BIGTIME" 


On the tape cassette included with your iLi Ч 


*SQUIGGLE" - Draws wriggly patterns on the PET screen and 
illustrates programmed cursor movement, graphics characters and 
use of the random function. You can adjust the randomness of 
Squiggle's pattern with the number you give it when Squiggle 
starts. 


«BIGTIME" — Displays the time, showing PET's timing capabili- 
ties, and how to use the PET as the world's most expensive digi- 
tal clock. 


Look at your introductory manual to see how to LOAD and RUN 
these programs. Once you have done so, the following descriptions 
will explain how these programs work. 


In order to see the indicated lines, you must use the list command. 
Press the RUN/STOP key, and the PET will stop running the program 
and leave you with a screen looking like this: 


REMAINS OF 
PICTURE MADE 
BY PROGRAM 


SOMEWHERE ON 
THE SCREEN'S 
LEFT EDGE 


CURSOR 


If you type in LIST and the RETURN key, your PET will display 
the entire program. Since both Squiggle and Bigtime are larger than 
the screen size, the listing will zip by until only the last part is 
showing on the screen. 


If you press the RVS key, the speed of the listing will slow down. ЇЇ 
you press the STOP key, the listing will stop. 


А convenient way to see portions of the program is to list parts. 
Here is how. 


LIST Shows entire program 

LIST 500- Shows from line 500 to the end 
LIST -500 Shows up to line 500 

LIST 500-600 Shows lines 500 through 600 
LIST 500 Shows line 500 ONLY 


Each of the following descriptions include the appropriate LIST 
commands for your convenience. 


Squiggle 


Here is a flowchart which shows how Squiggle works: 


LINE 5 
SCREEN 
SET UP CHARACTERS AS 
SET UP POINTERS Bl) LINES 20-220 


INITIALIZE X, Y, DIRECTIONS 


ASK FOR 
WIGGLE 
FACTOR 


LINES 250-270 


LINE 275 
CLEAR 
THE LINE 290 
SCREEN 
SUBROUTINE 2000-2090 
LINE 305 


KEEP YES ADJUST CINES 
SANE X Y 340-430 
DIRECTION? POSITION 
MAKE CHECK FOR | LINES 
NEW WRAP 490-560 
DIRECTION LINES 310-320 AROUND 


Now let's look at Squiggle in detail. 


LIST 1-5 


LINES 1-4 are remarks. LINE 1 identifies the program name. The 
version number is to keep track of variations of Squiggle as they 

are developed. This is a way of making sure the program you have is 
the latest one. (If you are making a program, it is easy to load a 
previous version and not know it!!) 


LINE2 This is who originally came up with the idea. 


LINE 3 identifies who has worked on this program. As programs аге 
made by people, it is nice to know who they are. 


LINE 4 explains what is about to happen in the next line. Remarks 
can be used to help explain how a program works. You may give a 
copy to a friend who wants to change or fix a program .. . a little 
explanation helps a lot! (And you will forget how your own pro- 
grams work in a few months!!) 


LINE 5 The[*]is the symbol made when you press CLEAR/HOME 
inside quotation marks. When BASIC prints this character, the screen 
becomes blank with the cursor in the upper left corner (HOME) 
position. This gets rid of any previous clutter on the screen. 


LIST 9-60 
A SQUIGGLE image is made up of 6 graphics characters: 
Ш For moving ир ог down with no turns 


H For moving horizontally 


HJ If moving right, left hand turn; 
If moving down, right hand turn 


ГЦ If moving left, right hand turn; 
If moving down, left hand turn 


ЕТ Similar for moving up, etc. 


LINE 10 contains these characters as DATA strings; one character 
per string. 


When the Wriggler is moving, his choices аге determined by his 
direction of motion. He can: 


1. Go in the same direction 
2. Turn right 
3. Turn left 


U-turns are not allowed! 


This means that, depending on his direction, Wriggler must choose 
3 of the six graphics characters. Here are the choices: 


Direction Meaning Character Character # 

Up Same Ш 1 
Right Turn LB 5 
Left Turn Б] 

Down Same Ш 1 
Right Turn HJ 4 
Left Turn ІҢ 3 

Right Same H 2 
Right Turn Rl 6 
Left Turn Н] 3 

Left Same H 2 
Right Turn (H 4 
Left Turn H] 5 


The problem here is to show these choices in a way the PET can 
understand. А grid was chosen by numbering the directions of travel. 


UP = 1 


LEFT=4 -----Ө----- RIGHT = 3 


DOWN = 2 


And then choosing the appropriate character to use. 
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Неге is the grid: 


NEW 
DIRECTION Х = U-TURN; ILLEGAL! 


1 2 3 4 


OLD 
DIRECTION 2 


The grid can be a number table. If we associate graphics characters 
with numbers: 


NUMBER CHARACTER 
0 U-TURN (ILLEGAL) 
І Ш 
2 Н 
3 БІ 
4 ІҢ 
5 Lo 
6 hl 


LINES 20-50 hold just the table above!! 
LINES 18 and 19 The remarks are reminders for the programmer. 
To get at these characters quickly, two arrays are defined: 


AS with elements 0-5 (total of 6) 
ВО with 36 elements (we use 1-4 in each direction 
for a total of 16 of these) 


LINE 60 defines these arrays. 


The reason LINES 55 & 56 say that B( ) holds PTRS 
(pointers) is illustrated as follows: 


Suppose Wriggler is going UP (Direction 1) and wants to turn RIGHT 
(Direction 3). If we look at B(1,3) we see the number 5. In the 5th 
element of AS is the character we want to print. The number in BQ) 
**points to" the character іп А5. 
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ШШЕ ЕЕ КА 
Wis 33 w 5 6 
B() THIS CHARACTER 


Often the arrangement of data in a program is the key to under- 
standing it. This section will make what follows from hereon easy to 
understand. 


LIST 60 -140 


We repeat LINE 60 for your reference. LINE 65 is a reminder that 
we are putting the data into А5 and В(). 


LINES 70-90 put the characters into the arrany A$. Note that the 
indices 0-5 are used for character #5 1-6. 


ASU 012345 
CHAR £ 123456 
CHAR tLIESEJ (8 Cd RJ 


LINES 100-140 read the pointers from data into the Array B. B now 
looks like this: 


34 Б The extra row and column at 

5 could be eliminated—the 
perceptive programmer can 
think of other ways to improve 
Squiggle as well. (Happy 
hacking!)* 


*'Hacking' is programming for 
the fun of it. 


LIST 150-220 

LINES 160-183 are self-explanatory. 

LINE 170 just separates the two thoughts described. 
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The Wriggler has two directions. ТІ is the new direction it is to go, 
and T2 the direction it just moved. LINE 163 is important since it 
identifies the directions used. 


X & Y are the position. The PET screen looks like this: 


STARTING 
POSITION 
AND 
DIRECTION 


LINES 190 & 200 set the Wriggler pointing UP. 
LINES 210, 220 put the Wriggler in the middle of the screen. 


LIST 250 - 280 


Here we obtain a number which tells Squiggle how often to make 
the Wriggler choose a new direction. This lets you choose between 


images like this: 
pb NS 


WIGGLE FACTOR = 0 WIGGLE FACTOR =9 
LINE 260 prints the request. Note that the range is specified (0-9). 


AND THIS: 


LINE 265 prints a fake “cursor” and then waits for a few moments. 


LINE 266 erases the “cursor” and waits also. Note the CI symbol 
is the “cursor left" symbol. 


LINE 270 gets a character from the keyboard. If there are no 
characters, it jumps back to LINE 265, which will blink the fake 
cursor once more. 


This little loop (260-270) is handy to show that input is wanted 
with the GET statement. 


LINE 275 verifies that the user did indeed type a digit from 0-9. 
If he didn't, the request is repeated, by going back to LINE 260. 


NOTE If you type in non-numeric characters, the 
repeated “Wiggle Factor (0-9)" will be written 


again, eventually filling the screen. There are two "'fixes" 
that could be tried: 


(1) In LINE 260, print a HOME or CLEAR/HOME before 
the “Wiggle Factor" message. 


(2) Jump to 265 instead. 


It is often a matter of preference how to handle “bad” inputs. 
This is an example that real programs aren't “perfect” and 
often can't be made so that they satisfy everybody. 


LINE 280 converts W$ into a number, with a value from .1 to 1. 
See LINE 305 for why this is done. 

LIST 290 - 330 

LINE 290 erases the screen again 


LINE 300 indicates the “main loops"— this means that Squiggle will 
keep coming back to here after each move of the Wriggler. 


LINE 301 describes the function of LINE 305. 


LINE 305 gets a random number and checks if it is larger than the 
Wriggle Factor squared. If it is, a jump is made to LINE 325, which 


calls SUBROUTINE 2000. This makes the Wriggler continue in the 
same direction it was going. 


Here is a table showing the effect of the Wiggle Factor. 


Avg. # ОЇ same direction moves 


You typed: Wz W = before choosing again 
0 4 .01 100 
1 32 04 25 
2 3 .09 11 
3 E 16 6 
4 15 25 4 
5 6 36 3 
6 7 49 2 
7 8 64 1.5 
8 9 81 1.3 
9 1.0 1.00 1 


LINE 310 chooses а number from 1 to 4 which is the new direction 
to go. (I«TI«5) 


LINE 320 checks for a U-turn situation. If a U-turn is detected 
(ВО will hold a zero), go back to LINE 310 and try again. 


Once the direction is selected, SUBROUTINE 2000 selects the 
character and draws it on the screen. 


LINE 330 sets T2 to the current direction (it will be “old” in the 
next move). 


LIST 339 - 430 
LINE 340 the spaces have been ignored in Squiggle 


340 TM ТЫ 400, 410, 420, 430 


checks the direction and selects which way to adjust the position 
of the Wriggler. 


LINES 400-430 move the position UP, DOWN, RIGHT, & LEFT 
respectively. Notice that LINES 420 & 430 GO TO 550. 


LIST 340 - 570 
Now the position is checked for a move off the screen's edge. 


LINE 500 


LINE 550 LINE 560 


LINE 510 


If a move off the edge happened, the appropriate coordinate is 
changed to “wrap around” the screen. Falling off the bottom leaves 
you at the top, etc. The associated directions and lines are shown. 


LINES 420 & 430 take advantage of the fact that a horizontal 
move doesn't require an UP/DOWN check afterwards. 


LINE 570 goes back to 300 to continue with the next move. 


LIST 1990 - 


LINE 1990 titles the subroutine. 1991 mentions the action of 
LINES 2000-2055. 


LINE 2000 homes the cursor. [s] is the home cursor symbol. 
LINES 2010-2030 moves the cursor DOWN (ap Y times. 


LINES 2040-2055 moves the cursor RIGHT (11 )Xtimes. This 
puts the cursor at position X,Y on the screen. 


LINES 2060-2080 print the required character. The expression 
B(T1,T2)-], selects the character according to the table. 


New Old | Recall that АЯ(0) is referenced by a pointer 
Direction value of 1. See LIST 60-140. 


LINE 2090 ends the subroutine. 


SOME VARIATIONS 


Feel free to make a copy of squiggle and change it to suit your fancy. 
An example: 


To change LINE 10 to: (Art Nouveau) 
10 DATA ARIE ul АРД “ТД “Б | “Га” 
SHIFT — К, J, U,I 
A Mad Architect is: 
ВАТА ЛЫ Г Dy 
(SHIFT $ N, M,:,L, O, P) 
Try other variations; some are extraordinary !! 


Here is a complete listing of squiggle for your reference: 


(Note: The characters Mog] will appear in reversed field) 
1 REM*****SQUIGGLE VERSION 2.0***** 

2 REM IDEA BY PAUL HITTLE 

3 REM PROGRAMMING BY B. SEILER, G. YOB 
4 REM CLEAR SCREEN TO START 

5 PRINT "[v]"; 

9 REM SQUIGGLE GRAPHICS CHARACTERS 
10 DATA ШЫ SES "Er, “ГЦ”, “ГН”, “К” 

18 REM CHARACTERS FOR EACH DIRECTION 
19 REM 20-UP,30-DOWN,40-RIGHT,50-LEFT 
20 БАТА1,0,5,6 

30 DATAO,1,4,3 

40 DATA3,6,2,0 

50 DATA4,5,0,2 

55 REM A$ HOLDS CHARS, B HOLDS PTRS 

56 REM FOR EACH DIRECTION 

60 DIMAS(5),BG,5) 


65 REM SET UP A$ AND BQ) 
70 FORI=0TOS 

80 READAS(I) 

90 NEXT I 


100 


FORI-1TO4 

FORJ-1TO4 

READB(,I) 

NEXT J 

NEXTI 

REM INITIAL VALUES 

REM T1,T2 = DIRECTION OF TRAVEL 
REM T1 IS CURRENT DIRECTION 
REM T2 IS PREVIOUS DIRECTION 
REM 1=UP, 2=DOWN, 3- RIGHT, 4-LEFT 
REM 

REM X,Y ARE POSITION OF WRIGGLER 
REM ON SCREEN. 0,0 IS UPPER LEFT 
REM CORNER (CURSOR HOME) 

REM 20,12 IS CENTER OF SCREEN 
Т1=1 

T25] 

X-20 

Y=12 

REM GET RANDOM FACTOR 
PRINT*WIGGLE FACTOR(0-9)”; 
PRINT ЕЗ 5 » БОВ J=1TO130:NEXTJ 
РКІМТ“ Ц)”; :FOR J21TO100:NEXTJ 
GET У/8ЛЕУУ5-“”ТНЕМ265 

IF W$<“0” OR W$>“9” THEN 260 
W=VAL(WS)/10+.1 

PRINT“([¥}”; 

REM***MAIN LOOP*** 

REM ** TURN OR NOT?? 

IF RND(1)>W*W THEN 325 

REM YES, DO TURN 

T1=4*RND(1)+1 
IFB(T1,T2)-0THEN310 

REM DRAW MOVE ON SCREEN 
GOSUB2000 

Т2-ТІ 

REM UPDATE POSITION 
ONT1GOTO400,410,420,430 

Y-Y-1 :GOTOSO0 

Y=Y+1 :GOTOSO0 

X=X+1 :GOTO550 

X=X-1 :GOTO550 
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490 REM ADJUST FOR WRAP-AROUND 
500 IF Ү<ІТНЕМҮ-23 :GOTO300 

510 IF Y>23THENY=1 :GOTO300 

550 IF XX I THENX-39 :GOTO300 

560 IF X»39THENX-1 :GOTO300 

570 GOTO300 

1990 REM ***DRAWING SUBROUTINE* ** 
1991 REM POSITION CURSOR AT X,Y 
2000 PRINT“ [Ss]"; 

2010 FORI-1TOY 

2020 PRINT“ [0] ”; 

2030 NEXT I 

2040 FORI-1TOX 

2050 PRINT"[]]"; 

2055 NEXT I 

2060 REM PRINT THE CHARACTER 

2080 PRINTAS(B(T1,T2)-1); 

2090 RETURN 

READY. 


Bigtime 


BIGTIME'S flowchart looks like this: 


SET UP 
AS TIME 
DIGITS 


ASK FOR 
TIME 
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LIST -100 
LINES 10-16 describe the program's name and who worked on it. 


LINE 20 defines a string array, AS(9), which stores the images for 
the digits 0-9 іп AS(0)-AS(9). 


If you look at LINES 1000-1950, you will see a series of data state- 
ments showing the 10 digits used. 


LINES 30-100 set up each element of A$ so it will draw the digit 
when it is printed. Here is a diagram showing how this works: 


UN | | A. Print 3 characters of the digit 


PEE NS B. Move cursor down 1 back 3 times 


Do this four more times 


БРА — C. Draw 3 characters of the digit 


D. Move cursor RIGHT once and UP 5 times. 


So, the digit will be drawn like this: 


Start 
Here 


Б End here (this is in the right place 
to start drawing the next digit) 


LINE 50 performs part A, getting a slice of the digit. 
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LINE 60 adds part B, moving the cursor down & to the left. 

LINE 80 does part C, getting the last slice. 

LINE 90 adds part D, moving in position for the next digit. 
(Actually, LINES 60 & 90 also provide part A and C respectively.) 
LINES 30 and 100 do the preceding operations for all the digits. 
LINES 40-70 handle the 5 repetitions of parts A and B. 


LIST 190 - 350 


LINE 200 clears the screen (that's the a symbol) and LINES 
200-260 draw the diagram and question for entering the time. 


Notice that lines 200 and 260 “slop over” into the next line on the 
screen. This is normal and does not mean a CARRIAGE-RETURN 
in the middle of these lines. 


А BASIC line can be up to 80 characters long, and this uses two lines 
on a screen 40 characters wide, as is the PET screen. 


The SPC(17) provides 17 blanks. 
LINE 300 gets the time. 
LINE 350 sets PET's internal time string, T1$, to the given time (A$). 


(Notice how А6 (which is not the ARRAY A$()) is used again in a 
different way than in LINES 50 & 60.) 

If you provide a bad time, or irrelevant characters, PET will ignore 
you and set the time to midnight (000000), or the program will stop. 
You can go to great efforts to make programs “bungle-proof,”’ but 
at the price of clarity. One might as well face the fact that some 

care is required when using a program — just as you use with our 
Hi-Fi, for example. 


LIST 360 - 800 


LINES 370 and 400 call two subroutines. Subroutine 5000 draws the 
border box for the time display: 


NEMPE TERM Subroutine 8000 draws 


the word TIME above 
the border box. 
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LINE 500 homes the cursor and moves it to the [XJ inside the border 
box. This is where to start drawing the time digits. 


LINES 600 to 700 draw the digits. LINE 650 selects each digit. 
This works as follows. 


MIDS(TIS,I,1) extracts the I'th digit from the string I$. 


VAL(MIDS(TIS,I,1)) this converts the digit to a number 
from 0 to 9. 


AS$(V AL(MID$(TIS$,I,1))) is the corresponding digit in the Array A$. 
Printing this string draws the corresponding digit on the PET's screen. 


LINE 670 checks if 2 or 4 digits have been drawn. It then does: 


Start —c | (geval? val 
Here PS 
| End up here 
ү! P 
t F 
о- 


This draws the 8 between the digits and moves the cursor to the 


correct place. 


LINES 600 and 700 form the loop to do all the digits. 


LINE 800 goes back to repeat the digit-drawing sequence. Since it 
takes about 1/3 second to draw all the digits, the time is kept correct 
to the nearest second. If you watch the right-most digit, you will 
notice that it changes somewhat irregularly: sometimes it will write 
twice, and sometimes it will write three times during any given one 
second interval. (The actual rate is about 25 times in 10 seconds.) 


О 0 


LIST 990 — 1250 These lines cause the digits to be 
LIST 1300 - 1550 shown in the display. If you want 
LIST 1600 — 1850 another style, you can change these 


to suit yourself. 
LIST 1900 - 2000 
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LIST 4999 - 5000, LIST 5060 - 6000 
LINE 5000 positions the cursor. Remember that LINE 370 has 
already called SUBROUTINE 8000 which clears the screen and 
prints ‘TIME’ for you. 
The border box is shown with the corresponding lines for each part. 
ANATOMY OF A BOX 
5010 


5020 N 


5040, 50 


5070 [85 | 
5120 | | 8 of these | 
5200 ШЕ 


5340- 
5360 


sao | 


5510 


You will notice that *NEXT" without the loop counter appears in 
many places. This is O.K. in PET BASIC. 


LIST 8000 - 
LINE 8030 clears the screen. 


LINES 8050-8080 draws the word ‘TIME’. 


The reason it was used in 8050-8080 was to adjust where ‘TIME’ 
appeared by changing one short statement instead of four long ones. 


The following listing is included for your convenience. 


(Note: The characters[v] | S) 111] will appear in 
reversed field) 

10 REM BIG TIME 2.0 NON-STOP 

15 REM ORIGINALLY BY SCOTT MAUCUS 

16 REM MODIFIED BY B. SEILER 

19 REM STORE DIGITS IN A$() 

20 DIM AS(9) 

35 REM SET UP A DIGIT 

40 FOR J=1 TO 5 

55 REM MOVE CURSOR DOWN & 3 LEFT 

60 AS(D-ASQ)*AS-** [a] [HU ” 

70 NEXT J 

85 REM MOVE CURSOR RIGHT & 5 UP 


| 
5100- | 
| 
| 


p 


A 
| 
| 
| 

2] | 
| 

N 


90 А5(1)-А%(1)-А5:-“ О [e] [e] [e] [e] (ә) ” 


NEXTI 

REM ASK FOR TIME 

PRINT" [v] MINUTES" 

PRINT“ HOURS — | SECONDS” 
PRINT“ pop. ease 
PRINT“PLEASE INPUT TIME HHMMSS”:PRINTSPC(17); 


INPUTAS 
REM SET TIME HERE 
TIS=AS 
REM DRAW “TIME” WORD 
GOSUB8000 
REM DRAW BORDER BOX 
GOSUB5000 
REM MAIN LOOP 
REM POSITION CURSOR @ 1 ST DIGIT 
PRINT] [a] [a] [о] Го] Го] [a] [а] [e] [a] [e] ІІ Q1] Dr] OM”; 
REM DRAW NUMERALS FOR TIME 
FOR I-1TO6 
PRINTAS(VAL(MIDS(TIS,L 1))); 
REM INSERT COLON TWEEN HH-MM,MM-SS 
IF I=2ORI=4THENPRINT“@) • (T2 9) (9) » (n [9] (s [S] [9$] "; 
NEXTI 
GOTOS00 
REM DIGITS DATA STRINGS 

DATA“ А 

РАТА“ 3 

DATA“ 5 

DATA“ is 

DATA“ 5 

DATA* a 

DATA“ Ж 

DATA“ D 

DATA“ д 

DATA“ 2 

DATA“ A 

DATA“ x 

DATA“ ч 

РАТА“ Ж 

DATA“ р 

DATA“ 5 

DATA“ " 

БАТА“ ы; 
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1300 DATA“ K 
1310 DATA“ 
1320 DATA“ 
1330 DATA“ 
1340 DATA“ 
1350 DATA“ 
1400 DATA“ 
1410 DATA“ 
1420 DATA“ 
1430 DATA“ 
1440 DATA“ 
1450 DATA“ 
1500 DATA“ 
1510 DATA“ 
1520 DATA“ 
1530 DATA“ 
1540 DATA“ 
1550 DATA“ 


1600 DATA“ i 
1610 DATA“ $ 
1620 DATA“ $ 
1630 DATA“ ' 
1640 DATA“ 3 
1650 DATA* ү 


1700 БАТА“ 
1710 БАТА“ 
1720 DATA“ 
1730 БАТА“ 
1740 РАТА“ 
1750 БАТА“ 
1800 DATA“ 
1810 БАТА“ 
1820 DATA“ 
1830 DATA“ 
1840 БАТА“ 
1850 БАТА“ 
1900 БАТА“ 
1910 DATA“ 
1920 БАТА“ 


4999 REM WRITE BORDER FOR DIGITS 
5000 PRINT" "; 
5010 FORI-1TO37:PRINT*[ ]";;NEXT:PRINT 
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5020 
5040 
5050 
5060 
5070 


5100 
5110 
5120 
5200 


5340 
5350 
5360 
5420 
5510 
6000 
8000 
8030 
8040 
8050 
8060 
8070 
8080 
9000 


PRINT“L].Nspc(35)* ІС 
FORI-1TO2 

PRINT“ PSPC)“ S] "SPC(35-2*D)*(Z ”8РС(УЧГТ 
NEXT 

PRINT“(_][)":FORI=1T0O29:PRINT“[)”;: 
NEXT:PRINT 0D OGO” 

FORI-1TO8 

РЕІМТӘГІГІГІ SPCQ9)*C]C3E]" 

NEXT 

PRINT“ ]1[3 O”; FORIS1TO29:PRINT* L]”:: 
NEXT:PRINT* OGO” 

FORI-2TOISTEP-1 

PRINT*[ ]"SPC(D*(Z"SPC(35-2* D NJ" SPC(OD[ 1" 
NEXT 

PRINT“ O Z "SPC(35)'* N O” 

PRINT“ ":FORI-ITO37:PRINT* ”;NEXT:PRINT 
RETURN 

REM TIME HEADER 

PRINT“ [¥]”; 
W-10 
PRINTSPC(W)* 
PRINTSPC(W)" | |] 
PRINTSPC(W)" 
PRINTSPC(W)” 
RETURN 
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Notes 


Notes 


APPENDIX апа ERRATA 


MACHINE LANGUAGE MONITOR 
SQUIGGLE and BIG TIME 


ERRATA 

Big Time 

Insert the cassette with Squiggle and Big Time label on top, rewind it fully. 
To load Big Time, type: 


LOAD"BIG [SPACEJTIME" [RETURN 


(Note space between BIG and TIME. In parts of the booklet, the space is 
not indicated. There must be a space.) 


The listing of the program on page 16 has the following errors: 
Line 19 in the printed listing is not in the program. 
Line 30, 50 and 80 are missing from the listing. They are: 


30 FORI=1TO9 
50 READ A$ 
80 READ A$ 


Machine Language Monitor 
Page 1, paragraph 3, line 2 should read: 


“executing a program, display or modify registers and memory 
locations.” 


Page 2, paragraph 4: the example given should read: 
.5 01, МОМІТОВ,0400,0760 

Page 6, item 11), the comment in italics should read: 
(Enter these as direct commands) 


Please note that this cassette contains two copies of the Machine Language 
Monitor. Side А has the programs “Squiggle,” “Вір Time," and “Monitor.” 
Side B has only the “Monitor” program. If you should have difficulty loading 
the Monitor from side B, use the copy on side А. 


Insert the cassette with Squiggle and Big Time label on top, rewind it fully, 
type: 
LOAD"MONITOR" and press [RETURN 


APPENDIX 


The USR function allows a programmer to call a machine language subroutine 
from BASIC. USR has a parameter which is evaluated and placed in the 
floating accumulator at location $В@. The format is as follows: 


$BØ - exponent + 580 
0 if mantissa = 0 


$B1 - mantissa MSB (normalized so B7 set) 
$B2 — mantissa 

$B3 — mantissa 

$B4 — mantissa LSB 

$B5 — sign of mantissa 


+ if mantissa plus 
— if mantissa negative 


The floating accumulator may be converted to a two byte integer in $B3 and 
5В4 (MSB, LSB) by a JSR 5р0А7. On return to BASIC, an integer may be 
converted and passed in the floating accumulator. The MSB is loaded into the 
MOS 6502 accumulator А and the LSB into index register Y and then JSR 
5278. Since the return address to BASIC is already on the stack and the 
integer-floating conversion might be the last step to execute, it is possible to 
do a JMP $D278 instead of a JSR $D278 and RTS. 


Before executing USR from BASIC, locations 1 and 2 must be poked with 
the address, lo-hi, of the machine code subroutine. The address may be 
changed if the programmer desires to have more than one routine resident at 
one time. 


It is recommended that the machine language subroutines be located in pro- 
tected areas of RAM such as the unused tape buffer. 


Example: floating point representation 


1.510 

80 сая 002 00 00 00 

$в@ > 

USR function example. 
0004 4С ЗА 03 JMP 
INT = $B3 
ж =$33A 

033A 20 А7 DØ USR JSR FLPINT 
0330 А5 B3 LDA INT 
Q@33F Аб B4 LDX INT+1 Swap bytes 
0341 85 B4 STA INT+1 to use 
0343 86 B3 STX INT as address 
0345 А2 00 LDX #0 indirect 
9347 A1 ВЗ LDA (INT,X) load 
0349 АВ TAY LSB in Y 
034A 8A TXA MSB in A 
034B 4C 78 D2 JMP INTFLP 


INTFLP - $D278 
FLPINT = $DØA7 


USR function example: 


X= USR (1) 
-32768 < I< 32767 
Ø < X< 255 


Returns the contents of the byte whose address is specified by I. The variable 
I is preserved. Parameter is passed in the floating accumulator and translation 
is performed by appropriate BASIC subroutines. 


10000 DATA 32,167,208,165,179,166,180,133 
10100 DATA 180,134,179,162,0,161,179,168 
10200 DATA 138,76,120,210 

10300 FOR 1 = 826 TO 845 

10400 READ N:POKE I,N 

10500. NEXT 

10600 POKE 1,58 

10700 POKE 2,3 


This is a BASIC program to POKE the USR machine language subroutine 
from the previous example into the memory. The hex codes have been 
translated into decimal and placed in data statements. The memory region 
used is the 2nd cassette data buffer area. Note locations 1 and 2 are poked 
with the start address of the subroutine. 
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